home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tp.d64 / superkey.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  3KB  |  101 lines
  1. 100 POKE53280,PEEK(53281)
  2. 105 PRINT"[147]"TAB(15)"[211]UPER[203]EY 64"
  3. 110 PRINTTAB(19)"BY"
  4. 115 PRINTTAB(14)"[196]ARREN [211]PURYT"
  5. 120 PRINTTAB(15)"[208]LEASE WAIT"
  6. 125 REM" [197]NTERED BY [211]TEVE [198]ULTON
  7. 130 [129]J[178]0[164]339:[135]X:[151]49152[170]J,X
  8. 135 [151]1024,X:CH[178]CH[170]X:[130]
  9. 140 [158] 49409
  10. 145 [153]"LOAD"[163]14)"(null)UPER(null)EY 64"
  11. 150 [153][163]13)"LENHART OF (null)EYS"
  12. 155 [153]"(null)EY (null)NSHIFT (null)HIFT   ";
  13. 160 [153]"(null)EY (null)NSHIFT (null)HIFT"
  14. 165 [153]"TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(   ";
  15. 170 [153]"TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB("
  16. 175 [153]" ATN  ASC     ABS     ";
  17. 180 [153]"CLOSE(null)  NEXT    NOT"
  18. 185 [153]" PEEK  POKE    PEEK    ";
  19. 190 [153]"CLOSE(null)  OPEN    ATN"
  20. 195 [153]"CLOSELEN  CLOSE   CHR$    ";
  21. 200 [153]"CLOSE(null)  PRINT   PRINT#"
  22. 205 [153]" STR$  DATA    DIM     ";
  23. 210 [153]"CLOSE(null)  REM     POS"
  24. 215 [153]" VAL  END     RND     ";
  25. 220 [153]"CLOSE(null)  READ    RETURN"
  26. 225 [153]"CLOSEASC  FOR     STEP    ";
  27. 230 [153]"CLOSE(null)  STR$    SPC("
  28. 235 [153]"CLOSECHR$  GOTO    GOSUB   ";
  29. 240 [153]"CLOSE(null)  THEN    TAB("
  30. 245 [153]" LEFT$  GET     STOP    ";
  31. 250 [153]"CLOSE(null)  CMD     AND"
  32. 255 [153]"CLOSERIGHT$  INPUT   INPUT#  ";
  33. 260 [153]"CLOSE(null)  VAL     VERIFY"
  34. 265 [153]"CLOSEMID$  INT     SIN     ";
  35. 270 [153]"CLOSE(null)  WAIT    SQR"
  36. 275 [153]"CLOSE(null)  RIGHT$  COS     ";
  37. 280 [153]" (null)  LOG     EXP"
  38. 285 [153]"CLOSE(null)  LEFT$   LEN     ";
  39. 290 [153]"CLOSE(null)  LOAD    SAVE"
  40. 295 [153]"CLOSE(null)  MID$    TAN     ";
  41. 300 [153]"CLOSE(null)CLOSECLOSESYS     SGN"
  42. 310 [162]
  43. 315 [131] 142, 18,193,140, 19,193
  44. 320 [131] 141, 16,193,173, 17,193
  45. 325 [131] 240, 77,165,215,201,133
  46. 330 [131] 208, 11,169,  0,141, 17
  47. 335 [131] 193,234,234,234, 76,244
  48. 340 [131] 192,201,134,208, 29,169
  49. 345 [131]   0,133,198,174, 20,193
  50. 350 [131] 240,237,169, 20,230,198
  51. 355 [131] 164,198,153,119,  2,200
  52. 360 [131] 202,208,245,160,  0,234
  53. 365 [131]  76,212,192,234,201,135
  54. 370 [131] 208,  4,169,155,208,  6
  55. 375 [131] 201,136,208,205,169,138
  56. 380 [131] 160,  1,140, 23,193,238
  57. 385 [131]  22,193,208, 44,234,234
  58. 390 [131] 234,165,215,201,133,240
  59. 395 [131] 184,201,193,144, 10,201
  60. 400 [131] 219,176,  6, 56,233,167
  61. 405 [131]  76,122,192,201, 65,144
  62. 410 [131] 163,201, 91,176,159, 56
  63. 415 [131] 233, 65,160,  0,140, 23
  64. 420 [131] 193,234,170,189, 32,193
  65. 425 [131] 170,160,  0,132,198,160
  66. 430 [131] 158,132, 34,160,160,132
  67. 435 [131]  35,160,  0, 10,240, 17
  68. 440 [131] 202, 16, 16,230, 34,208
  69. 445 [131]   2,230, 35,177, 34, 16
  70. 450 [131] 246, 48,241,234,234,198
  71. 455 [131]  34,200,177, 34,234, 48
  72. 460 [131]  10,230,198,166,198,157
  73. 465 [131] 119,  2, 76,169,192,230
  74. 470 [131] 198,166,198, 41,127,157
  75. 475 [131] 119,  2,173, 23,193,240
  76. 480 [131]  12,169,138,141,119,  2
  77. 485 [131] 141, 23,193,208,  8,234
  78. 490 [131] 234,136,169, 20,141,119
  79. 495 [131]   2,230,198,141, 17,193
  80. 500 [131] 140, 20,193,173, 22,193
  81. 505 [131] 240, 14,166,198,169, 13
  82. 510 [131] 157,119,  2,230,198,169
  83. 515 [131]   0,141, 22,193,173, 16
  84. 520 [131] 193,172, 19,193,174, 18
  85. 525 [131] 193, 76, 49,234,234,120
  86. 530 [131] 169,  0,141, 20,  3,169
  87. 535 [131] 192,141, 21,  3, 88, 96
  88. 540 [131]  96,234,  0,138,236,  3
  89. 545 [131]   4,234,  0,138,234,234
  90. 550 [131] 234,234,234,234,234,234
  91. 555 [143] **** KEYWORD TOKEN TABLE ****
  92. 560 [131] 198,151,160,131,128,129
  93. 565 [131] 137,161,133,181,201,200
  94. 570 [131] 202,130,159,153,143,135
  95. 575 [131] 196,167,157,197,146,188
  96. 580 [131] 147,158,182,194,199,134
  97. 585 [131] 187,169,141,144,132,191
  98. 590 [131] 190,195,192,168,193,152
  99. 595 [131] 185,142,166,163,175,149
  100. 600 [131] 186,189,148,180
  101.